home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 11
/
Cream of the Crop 11-1.iso
/
program
/
airvb25.zip
/
VB.ZIP
/
ACOCKPIT.FRM
< prev
next >
Wrap
Text File
|
1996-01-20
|
21KB
|
650 lines
VERSION 2.00
Begin Form Form2
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Cockpit"
ClientHeight = 6915
ClientLeft = 675
ClientTop = 1995
ClientWidth = 8835
Height = 7275
Left = 615
LinkTopic = "Form2"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 461
ScaleMode = 3 'Pixel
ScaleWidth = 589
Top = 1695
Width = 8955
Begin AIR OBI
ADFBearing = 0
AirspeedVFE = 85
AirspeedVMax = 170
AirspeedVNE = 150
AirspeedVNO = 112
AirspeedVS0 = 35
AirspeedVS1 = 40
AltBarometer = 0 'False
AltBarometricPressure= 20
AutoRedraw = 0 'False
AVersion = 2.5
BackColor = &H00C0C0C0&
Bank = 0
BevelInner = 0 ' 0 - None
BevelOuter = 2 ' 2 - Inset
BevelWidth = 2
BorderWidth = 0
CompassStyle = 0 ' 0 - Stationary
DisplayMode = 11 ' 11 - OBI
FontSize = 10
Height = 2175
HSIBearing = 55
HSICompass = -1 'True
HSICourseDelta = 1
HSICourseDeviation= -0.5
HSICourseDisplay= 0 ' 0 - CRS
HSICourseHeading= 34
HSIDistance = 0
HSIDistanceDisplay= 2 ' 2 - WPT
HSIGlideSlopeDelta= 1
HSIGlideSlopeDeviation= 0
HSINavigationSource= 5 ' 5 - LRN
HSISpeed = 0
HSITime = 0
HSITimeSpeedDisplay= 0 ' 0 - TTG (time to go)
Inclinometer = 0
Left = 6120
MouseControl = 0 'False
OBIARCFlag = -1 'True
OBIBackCourse = -1 'True
OBICourse = 0
OBICourseDeviation= 0.3
OBIGlideSlope = -0.4
OBIGSFlag = -1 'True
OBINAVFlag = 0 'False
OBIToFrom = 1 ' 1 - To
OrdCourse = 0
Pitch = 0
RMIBearing = 0
RMICompass = 0
TabIndex = 9
Top = 4440
Turn = 0
Value = 0
Width = 2175
End
Begin AIR RMI
ADFBearing = 0
AirspeedVFE = 85
AirspeedVMax = 170
AirspeedVNE = 150
AirspeedVNO = 112
AirspeedVS0 = 35
AirspeedVS1 = 40
AltBarometer = 0 'False
AltBarometricPressure= 20
AutoRedraw = 0 'False
AVersion = 2.5
BackColor = &H00C0C0C0&
Bank = 0
BevelInner = 0 ' 0 - None
BevelOuter = 2 ' 2 - Inset
BevelWidth = 2
BorderWidth = 0
CompassStyle = 0 ' 0 - Stationary
DisplayMode = 10 ' 10 - RMI
FontSize = 10
Height = 2145
HSIBearing = 55
HSICompass = -1 'True
HSICourseDelta = 1
HSICourseDeviation= -0.5
HSICourseDisplay= 0 ' 0 - CRS
HSICourseHeading= 34
HSIDistance = 0
HSIDistanceDisplay= 2 ' 2 - WPT
HSIGlideSlopeDelta= 1
HSIGlideSlopeDeviation= 0
HSINavigationSource= 5 ' 5 - LRN
HSISpeed = 0
HSITime = 0
HSITimeSpeedDisplay= 0 ' 0 - TTG (time to go)
Inclinometer = 0
Left = 6120
MouseControl = 0 'False
OBIARCFlag = 0 'False
OBIBackCourse = 0 'False
OBICourse = 0
OBICourseDeviation= 0
OBIGlideSlope = 0
OBIGSFlag = 0 'False
OBINAVFlag = 0 'False
OBIToFrom = 0 ' 0 - None
OrdCourse = 0
Pitch = 0
RMIBearing = 0
RMICompass = 0
TabIndex = 8
Top = 2280
Turn = 0
Value = 0
Width = 2175
End
Begin AIR ADF
ADFBearing = 0
AirspeedVFE = 85
AirspeedVMax = 170
AirspeedVNE = 150
AirspeedVNO = 112
AirspeedVS0 = 35
AirspeedVS1 = 40
AltBarometer = 0 'False
AltBarometricPressure= 20
AutoRedraw = 0 'False
AVersion = 2.5
BackColor = &H00C0C0C0&
Bank = 0
BevelInner = 0 ' 0 - None
BevelOuter = 2 ' 2 - Inset
BevelWidth = 2
BorderWidth = 0
CompassStyle = 0 ' 0 - Stationary
DisplayMode = 9 ' 9 - ADF
FontSize = 10
Height = 2175
HSIBearing = 55
HSICompass = -1 'True
HSICourseDelta = 1
HSICourseDeviation= -0.5
HSICourseDisplay= 0 ' 0 - CRS
HSICourseHeading= 34
HSIDistance = 0
HSIDistanceDisplay= 2 ' 2 - WPT
HSIGlideSlopeDelta= 1
HSIGlideSlopeDeviation= 0
HSINavigationSource= 5 ' 5 - LRN
HSISpeed = 0
HSITime = 0
HSITimeSpeedDisplay= 0 ' 0 - TTG (time to go)
Inclinometer = 0
Left = 600
MouseControl = 0 'False
OBIARCFlag = 0 'False
OBIBackCourse = 0 'False
OBICourse = 0
OBICourseDeviation= 0
OBIGlideSlope = 0
OBIGSFlag = 0 'False
OBINAVFlag = 0 'False
OBIToFrom = 0 ' 0 - None
OrdCourse = 0
Pitch = 0
RMIBearing = 0
RMICompass = 0
TabIndex = 7
Top = 4440
Turn = 0
Value = 0
Width = 2175
End
Begin Timer Timer1
Interval = 50
Left = 0
Top = 2640
End
Begin AIR turn
ADFBearing = 0
AirspeedVFE = 85
AirspeedVMax = 170
AirspeedVNE = 150
AirspeedVNO = 112
AirspeedVS0 = 35
AirspeedVS1 = 40
AltBarometer = 0 'False
AltBarometricPressure= 20
AutoRedraw = 0 'False
AVersion = 2.5
BackColor = &H00C0C0C0&
Bank = 0
BevelInner = 0 ' 0 - None
BevelOuter = 2 ' 2 - Inset
BevelWidth = 2
BorderWidth = 0
CompassStyle = 0 ' 0 - Stationary
DisplayMode = 7 ' 7 - Turn Coordinator
FontSize = 15
Height = 1455
HSIBearing = 0
HSICompass = 0 'False
HSICourseDelta = 1
HSICourseDeviation= 0
HSICourseDisplay= 0 ' 0 - CRS
HSICourseHeading= 0
HSIDistance = 0
HSIDistanceDisplay= 0 ' 0 - DME
HSIGlideSlopeDelta= 1
HSIGlideSlopeDeviation= 0
HSINavigationSource= 0 ' 0 - VOR 1
HSISpeed = 0
HSITime = 0
HSITimeSpeedDisplay= 0 ' 0 - TTG (time to go)
Inclinometer = 0
Left = 2880
MouseControl = 0 'False
OBIARCFlag = 0 'False
OBIBackCourse = 0 'False
OBICourse = 0
OBICourseDeviation= 0
OBIGlideSlope = 0
OBIGSFlag = 0 'False
OBINAVFlag = 0 'False
OBIToFrom = 0 ' 0 - None
OrdCourse = 0
Pitch = 0
RMIBearing = 0
RMICompass = 0
TabIndex = 6
Top = 5160
Turn = 0
Value = 0
Width = 3135
End
Begin AIR horizon
ADFBearing = 0
AirspeedVFE = 85
AirspeedVMax = 170
AirspeedVNE = 150
AirspeedVNO = 112
AirspeedVS0 = 35
AirspeedVS1 = 40
AltBarometer = 0 'False
AltBarometricPressure= 20
AutoRedraw = 0 'False
AVersion = 2.5
BackColor = &H00C0C0C0&
Bank = 0
BevelInner = 0 ' 0 - None
BevelOuter = 2 ' 2 - Inset
BevelWidth = 2
BorderWidth = 0
CompassStyle = 0 ' 0 - Stationary
DisplayMode = 6 ' 6 - Artificial Horizon
FontSize = 15
Height = 2805
HSIBearing = 0
HSICompass = 0 'False
HSICourseDelta = 1
HSICourseDeviation= 0
HSICourseDisplay= 0 ' 0 - CRS
HSICourseHeading= 0
HSIDistance = 0
HSIDistanceDisplay= 0 ' 0 - DME
HSIGlideSlopeDelta= 1
HSIGlideSlopeDeviation= 0
HSINavigationSource= 0 ' 0 - VOR 1
HSISpeed = 0
HSITime = 0
HSITimeSpeedDisplay= 0 ' 0 - TTG (time to go)
Inclinometer = 0
Left = 2880
MouseControl = 0 'False
OBIARCFlag = 0 'False
OBIBackCourse = 0 'False
OBICourse = 0
OBICourseDeviation= 0
OBIGlideSlope = 0
OBIGSFlag = 0 'False
OBINAVFlag = 0 'False
OBIToFrom = 0 ' 0 - None
OrdCourse = 0
Pitch = 0
RMIBearing = 0
RMICompass = 0
TabIndex = 5
Top = 2280
Turn = 0
Value = 0
Width = 3135
End
Begin AIR hsi
ADFBearing = 0
AirspeedVFE = 85
AirspeedVMax = 170
AirspeedVNE = 150
AirspeedVNO = 112
AirspeedVS0 = 35
AirspeedVS1 = 40
AltBarometer = 0 'False
AltBarometricPressure= 20
AutoRedraw = 0 'False
AVersion = 2.5
BackColor = &H00C0C0C0&
Bank = 0
BevelInner = 0 ' 0 - None
BevelOuter = 2 ' 2 - Inset
BevelWidth = 2
BorderWidth = 0
CompassStyle = 0 ' 0 - Stationary
DisplayMode = 5 ' 5 - HSI
FontSize = 12
Height = 2100
HSIBearing = 55
HSICompass = -1 'True
HSICourseDelta = 1
HSICourseDeviation= -0.5
HSICourseDisplay= 1 ' 1 - DTK
HSICourseHeading= 34
HSIDistance = 0
HSIDistanceDisplay= 2 ' 2 - WPT
HSIGlideSlopeDelta= 1
HSIGlideSlopeDeviation= 0
HSINavigationSource= 5 ' 5 - LRN
HSISpeed = 0
HSITime = 0
HSITimeSpeedDisplay= 0 ' 0 - TTG (time to go)
Inclinometer = 0
Left = 600
MouseControl = 0 'False
OBIARCFlag = 0 'False
OBIBackCourse = 0 'False
OBICourse = 0
OBICourseDeviation= 0
OBIGlideSlope = 0
OBIGSFlag = 0 'False
OBINAVFlag = 0 'False
OBIToFrom = 0 ' 0 - None
OrdCourse = 0
Pitch = 0
RMIBearing = 0
RMICompass = 0
TabIndex = 4
Top = 2280
Turn = 0
Value = 0
Width = 2175
End
Begin AIR speed
ADFBearing = 0
AirspeedVFE = 85
AirspeedVMax = 170
AirspeedVNE = 150
AirspeedVNO = 112
AirspeedVS0 = 35
AirspeedVS1 = 40
AltBarometer = 0 'False
AltBarometricPressure= 20
AutoRedraw = 0 'False
AVersion = 2.5
BackColor = &H00C0C0C0&
Bank = 0
BevelInner = 0 ' 0 - None
BevelOuter = 2 ' 2 - Inset
BevelWidth = 2
BorderWidth = 0
CompassStyle = 0 ' 0 - Stationary
DisplayMode = 4 ' 4 - Airspeed
FontSize = 12
Height = 2100
HSIBearing = 0
HSICompass = 0 'False
HSICourseDelta = 0
HSICourseDeviation= 0
HSICourseDisplay= 0 ' 0 - CRS
HSICourseHeading= 0
HSIDistance = 0
HSIDistanceDisplay= 0 ' 0 - DME
HSIGlideSlopeDelta= 0
HSIGlideSlopeDeviation= 0
HSINavigationSource= 0 ' 0 - VOR 1
HSISpeed = 0
HSITime = 0
HSITimeSpeedDisplay= 0 ' 0 - TTG (time to go)
Inclinometer = 0
Left = 2310
MouseControl = 0 'False
OBIARCFlag = 0 'False
OBIBackCourse = 0 'False
OBICourse = 0
OBICourseDeviation= 0
OBIGlideSlope = 0
OBIGSFlag = 0 'False
OBINAVFlag = 0 'False
OBIToFrom = 0 ' 0 - None
OrdCourse = 0
Pitch = 0
RMIBearing = 0
RMICompass = 0
TabIndex = 3
Top = 30
Turn = 0
Value = 95
Width = 2100
End
Begin AIR climb
ADFBearing = 0
AirspeedVFE = 85
AirspeedVMax = 170
AirspeedVNE = 150
AirspeedVNO = 112
AirspeedVS0 = 35
AirspeedVS1 = 40
AltBarometer = 0 'False
AltBarometricPressure= 20
AutoRedraw = 0 'False
AVersion = 2.5
BackColor = &H00C0C0C0&
Bank = 0
BevelInner = 0 ' 0 - None
BevelOuter = 2 ' 2 - Inset
BevelWidth = 2
BorderWidth = 0
CompassStyle = 0 ' 0 - Stationary
DisplayMode = 3 ' 3 - Rate Of Climb
FontSize = 13
Height = 2100
HSIBearing = 0
HSICompass = 0 'False
HSICourseDelta = 0
HSICourseDeviation= 0
HSICourseDisplay= 0 ' 0 - CRS
HSICourseHeading= 0
HSIDistance = 0
HSIDistanceDisplay= 0 ' 0 - DME
HSIGlideSlopeDelta= 0
HSIGlideSlopeDeviation= 0
HSINavigationSource= 0 ' 0 - VOR 1
HSISpeed = 0
HSITime = 0
HSITimeSpeedDisplay= 0 ' 0 - TTG (time to go)
Inclinometer = 0
Left = 6630
MouseControl = 0 'False
OBIARCFlag = 0 'False
OBIBackCourse = 0 'False
OBICourse = 0
OBICourseDeviation= 0
OBIGlideSlope = 0
OBIGSFlag = 0 'False
OBINAVFlag = 0 'False
OBIToFrom = 0 ' 0 - None
OrdCourse = 0
Pitch = 0
RMIBearing = 0
RMICompass = 0
TabIndex = 2
Top = 30
Turn = 0
Value = 0
Width = 2100
End
Begin AIR alt
ADFBearing = 0
AirspeedVFE = 85
AirspeedVMax = 170
AirspeedVNE = 150
AirspeedVNO = 112
AirspeedVS0 = 35
AirspeedVS1 = 40
AltBarometer = 0 'False
AltBarometricPressure= 20
AutoRedraw = 0 'False
AVersion = 2.5
BackColor = &H00C0C0C0&
Bank = 0
BevelInner = 0 ' 0 - None
BevelOuter = 2 ' 2 - Inset
BevelWidth = 2
BorderWidth = 0
CompassStyle = 0 ' 0 - Stationary
DisplayMode = 2 ' 2 - Altimeter
FontSize = 14
Height = 2100
HSIBearing = 0
HSICompass = 0 'False
HSICourseDelta = 0
HSICourseDeviation= 0
HSICourseDisplay= 0 ' 0 - CRS
HSICourseHeading= 0
HSIDistance = 0
HSIDistanceDisplay= 0 ' 0 - DME
HSIGlideSlopeDelta= 0
HSIGlideSlopeDeviation= 0
HSINavigationSource= 0 ' 0 - VOR 1
HSISpeed = 0
HSITime = 0
HSITimeSpeedDisplay= 0 ' 0 - TTG (time to go)
Inclinometer = 0
Left = 4470
MouseControl = 0 'False
OBIARCFlag = 0 'False
OBIBackCourse = 0 'False
OBICourse = 0
OBICourseDeviation= 0
OBIGlideSlope = 0
OBIGSFlag = 0 'False
OBINAVFlag = 0 'False
OBIToFrom = 0 ' 0 - None
OrdCourse = 0
Pitch = 0
RMIBearing = 0
RMICompass = 0
TabIndex = 1
Top = 30
Turn = 0
Value = 90
Width = 2100
End
Begin AIR heading
ADFBearing = 0
AirspeedVFE = 85
AirspeedVMax = 170
AirspeedVNE = 150
AirspeedVNO = 112
AirspeedVS0 = 35
AirspeedVS1 = 40
AltBarometer = 0 'False
AltBarometricPressure= 20
AutoRedraw = 0 'False
AVersion = 2.5
BackColor = &H00C0C0C0&
Bank = 0
BevelInner = 0 ' 0 - None
BevelOuter = 2 ' 2 - Inset
BevelWidth = 2
BorderWidth = 0
CompassStyle = 0 ' 0 - Stationary
DisplayMode = 1 ' 1 - Heading Indicator
FontSize = 12
Height = 2100
HSIBearing = 0
HSICompass = 0 'False
HSICourseDelta = 0
HSICourseDeviation= 0
HSICourseDisplay= 0 ' 0 - CRS
HSICourseHeading= 0
HSIDistance = 0
HSIDistanceDisplay= 0 ' 0 - DME
HSIGlideSlopeDelta= 0
HSIGlideSlopeDeviation= 0
HSINavigationSource= 0 ' 0 - VOR 1
HSISpeed = 0
HSITime = 0
HSITimeSpeedDisplay= 0 ' 0 - TTG (time to go)
Inclinometer = 0
Left = 150
MouseControl = 0 'False
OBIARCFlag = 0 'False
OBIBackCourse = 0 'False
OBICourse = 0
OBICourseDeviation= 0
OBIGlideSlope = 0
OBIGSFlag = 0 'False
OBINAVFlag = 0 'False
OBIToFrom = 0 ' 0 - None
OrdCourse = 0
Pitch = 0
RMIBearing = 0
RMICompass = 0
TabIndex = 0
Top = 30
Turn = 0
Value = 0
Width = 2100
End
End
Sub Form_Load ()
alt = 11250
speed = 95
End Sub
Sub Timer1_Timer ()
'this is not a real simulation
horizon.Bank = horizon.Bank + 4 * Rnd - 2
If horizon.Bank > 30 Then horizon.Bank = 30
If horizon.Bank < -30 Then horizon.Bank = -30
horizon.Pitch = horizon.Pitch + 4 * Rnd - 2
If horizon.Pitch > 30 Then horizon.Pitch = 30
If horizon.Pitch < -30 Then horizon.Pitch = -30
climb = 50 * speed * Sin(horizon.Pitch * Cos(horizon.Bank * 3.14159 / 180) * 3.14159 / 180)
alt = alt + climb / 100
speed = speed - climb / 2000
If speed > 120 Then speed = 120
If speed < 60 Then speed = 60
heading = heading - speed * Sin(horizon.Bank * 3.14159 / 180) / 20
OBI.OBICourse = heading
ADF.ADFBearing = heading + 30
RMI.RMIBearing = heading + 45
hsi = heading
Turn.Turn = speed * Sin(horizon.Bank * 3.14159 / 180) * Sin(horizon.Pitch * 3.14159 / 180)
'In this cockpit demo, all instruments have the AutoRedraw property
'set to false for improved refresh rates. This requires that
'you force the instruments to redraw after all the instruments'
'properties have been updated. Setting the Redraw property to
'True forces the instruments to be refreshed immediately.
heading.Redraw = True
speed.Redraw = True
climb.Redraw = True
alt.Redraw = True
hsi.Redraw = True
horizon.Redraw = True
OBI.Redraw = True
RMI.Redraw = True
ADF.Redraw = True
End Sub